home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / ilisp / ilcompat.el < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.7 KB  |  58 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilcompat.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.7
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995 Marco Antoniotti and Rick Busdiecker
  11. ;;;
  12. ;;; Other authors' names for which this Copyright notice also holds
  13. ;;; may appear later in this file.
  14. ;;;
  15. ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
  16. ;;; ILISP mailing list. 'ilisp@lehman.com' is the general ILISP
  17. ;;; mailing list were bugs and improvements are discussed.
  18. ;;;
  19. ;;; ILISP is freely redistributable under the terms found in the file
  20. ;;; COPYING.
  21.  
  22.  
  23. ;;;============================================================================
  24. ;;; Global definitions/declarations
  25.  
  26. (defconst +ilisp-emacs-version-id+
  27.   (cond ((string-match "XEmacs" emacs-version)
  28.      'xemacs)
  29.     ((string-match "Lucid" emacs-version)
  30.      (if (string-match "^19.[0-7][^0-9]" emacs-version)
  31.          'lucid-19
  32.        'lucid-19-new))
  33.     ((string-match "^19" emacs-version)
  34.      'fsf-19)
  35.     (t 'fsf-18))
  36.   "The version of Emacs ILISP is running in.
  37. Declared as '(member fsf-19 fsf-19 lucid-19 lucid-19-new xemacs.
  38. Set in ilcompat.el.")
  39.  
  40.  
  41. ;;;============================================================================
  42. ;;; Code
  43.  
  44. (cond ((or (eq +ilisp-emacs-version-id+ 'lucid-19)
  45.        (eq +ilisp-emacs-version-id+ 'lucid-19-new))
  46.        (load "illuc19"))
  47.       ((eq +ilisp-emacs-version-id+ 'xemacs) (load "ilxemacs"))
  48.       ((eq +ilisp-emacs-version-id+ 'fsf-19) (load "ilfsf19"))
  49.       ((eq +ilisp-emacs-version-id+ 'fsf-18) (load "ilfsf18"))
  50.       )
  51.  
  52. ;;;============================================================================
  53. ;;; Epilogue
  54.  
  55. (provide 'compat)
  56.  
  57. ;;; end of file -- compat.el --
  58.